home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 87 / Issue 087 - May 1995 - 0595.iso / ivan / filesfo& / dew.exe / INPUTRES.TXT < prev    next >
Encoding:
Text File  |  1994-11-04  |  968 b   |  35 lines
  1. if data-entry ROOMS_REQUIRED > any CLUB ROOMS with
  2. (DEPARTURE DATE = data-entry DEPARTURE_DATE and CLUB ID =
  3. data-entry CLUB_ID) VACANCIES then
  4.  
  5.     message "Not enough rooms are available. | Please choose another Club or date." window .
  6.     
  7. else
  8.     while current status not = 1 do
  9.     input using MEMBERS into "TEMPMEM" .
  10.         case ( current status )
  11.         value 1 :
  12.             exit .
  13.         value 2 :
  14.             modify records in CLUB ROOMS with
  15.             (CLUB ID = data-entry CLUB_ID and
  16.             DEPARTURE DATE = data-entry DEPARTURE_DATE)
  17.             VACANCIES := VACANCIES - data-entry ROOMS_REQUIRED .
  18.  
  19.             enter a record in MEMBERS
  20.             copy all from TEMPMEM.
  21.  
  22.             enter a record in RESERVATIONS
  23.             copy all from TEMPMEM ;
  24.             CLUB ID := data-entry CLUB_ID ;
  25.             DEPARTURE DATE := data-entry DEPARTURE_DATE ;
  26.             ROOMS REQUIRED := data-entry ROOMS_REQUIRED .
  27.  
  28.             record entry RESERVATIONS.
  29.         others
  30.             message "You are not authorized to |
  31.             modify or delete records." window.
  32.         end
  33.     end
  34. end
  35.